home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Prog
/
M
/
MacOberon241.cpt
/
MacOberon 2.4(1)
/
MacTextEdit.Mod
(
.txt
)
< prev
next >
Wrap
Oberon Text
|
1991-10-17
|
2KB
|
49 lines
Syntax10.Scn.Fnt
MODULE MacTextEdit; (*Macintosh OS Interface Module for MacOberon 2.2, Michael Franz, 9.10.91*)
IMPORT
TY:= MacTypes, QD:= MacQuickDraw;
CONST
teJustLeft*= 0; teJustCenter*= 1; teJustRight*= -1;
TYPE
TERec*= RECORD
destRect*, viewRect*, selRect*: TY.Rect;
lineHeight*, fontAscent*: INTEGER;
selPoint*: TY.Point;
selStart*, selEnd*, active*: INTEGER;
wordBreak*, clikLoop*: TY.ProcPtr;
clickTime*: LONGINT;
clickLoc*: INTEGER;
caretTime*: LONGINT;
caretState*, just*, teLength*: INTEGER;
hText*: TY.Handle;
recalBack, recalLines, clikStuff, crOnly, txFont*: INTEGER;
txFace*: SHORTINT; (* Style *)
txMode*, txSize*: INTEGER;
inPort*: QD.GrafPtr;
highHook, caretHook: TY.ProcPtr;
nLines*: INTEGER;
lineStarts: ARRAY 16000 OF INTEGER
END;
TEPtr*= POINTER- TO TERec;
TEHandle*= POINTER- TO RECORD p*: TEPtr END;
PROCEDURE - TENew*(destRect, viewRect: TY.Rect): TEHandle 0A9H, 0D2H;
PROCEDURE - TEDispose*(hTE: TEHandle) 0A9H, 0CDH;
PROCEDURE - TEIdle*(hTE: TEHandle) 0A9H, 0DAH;
PROCEDURE - TEClick*(pt: TY.Point; extend: BOOLEAN; hTE: TEHandle) 0A9H, 0D4H;
PROCEDURE - TESetSelect*(selStart, selEnd: LONGINT; hTE: TEHandle) 0A9H, 0D1H;
PROCEDURE - TEActivate*(hTE: TEHandle) 0A9H, 0D8H;
PROCEDURE - TEDeactivate*(hTE: TEHandle) 0A9H, 0D9H;
PROCEDURE - TEKey*(key: TY.UnpackedChar; hTE: TEHandle) 0A9H, 0DCH;
PROCEDURE - TECut*(hTE: TEHandle) 0A9H, 0D6H;
PROCEDURE - TECopy*(hTE: TEHandle) 0A9H, 0D5H;
PROCEDURE - TEPaste*(hTE: TEHandle) 0A9H, 0DBH;
PROCEDURE - TEDelete*(hTE: TEHandle) 0A9H, 0D7H;
PROCEDURE - TEInsert*(text: TY.Ptr; length: LONGINT; hTE: TEHandle) 0A9H, 0DEH;
PROCEDURE - TESetJust*(just: INTEGER; hTE: TEHandle) 0A9H, 0DFH;
PROCEDURE - TEUpdate*(rUpdate: TY.Rect; hTE: TEHandle) 0A9H, 0D3H;
PROCEDURE - TEScroll*(dh, dv: INTEGER; hTE: TEHandle) 0A9H, 0DDH;
PROCEDURE - TESelView*(hTE: TEHandle) 0A8H, 011H;
PROCEDURE - TEPinScroll*(dh, dv: INTEGER; hTE: TEHandle) 0A8H, 012H;
PROCEDURE - TEAutoView*(fAuto: BOOLEAN; hTE: TEHandle) 0A8H, 013H;
END MacTextEdit.